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C'est lu tête 


Le domaine de l’intelligence artificielle représente sans doute 
l’aspect le plus passionnant de l’informatique. Voici des techniques 
de base qui peuvent s’appliquer à votre micro. 


Au début des années soixante-dix, l’intelligence 
artificielle était en plein marasme. Aujourd’hui, 
ce domaine marche bien. Ses « adeptes » sont 
brusquement devenus tellement intéressants que 
les capitaux dits « à risque » n’hésitent plus à les 
financer, et leur courent pratiquement après. Les 
organismes gouvernementaux, quant à eux, SOU- 
tiennent sans réserve de coûteux projets de 
recherche et de développement. Les divers pays 
impliqués par ce défi technologique n’ont qu’une 
peur : se laisser distancer et perdre pied dans cette 
course. Les éditeurs de logiciels s’efforcent pour 
leur part de redéfinir leurs produits en tant 
que systèmes faisant intervenir l’intelligence 
artificielle. 

Pour comprendre où l’on en est et appréhen- 
der quel pourra être le futur, il est utile, là aussi, 
de regarder le passé. Un bref historique sur ce 
sujet dégagera quatre phases, sur quatre décen- 
nies. C’est bien sûr une simplification, mais elle 
a le mérite de souligner les points importants. 
Chaque thème ainsi mis en évidence répond en 
réalité à la même question : « Sur quoi portent 
les recherches en intelligence artificielle? » 


1950 : réseaux neuraux. 

1960 : recherche en heuristique. 

1970 : systèmes experts. 

1980 : acquisition automatique de connais- 
sances. 


En 1943, Warren McCulloch et Walter Pitts pro- 
posaient un modèle de neurones du cerveau 
humain et animal. Cette abstraction permit une 
représentation symbolique mathématique de 
l’activité cérébrale. D’autres chercheurs appliquè- 
rent ce modèle et les idées s’y rapportant à un 
nouveau champ de recherche connu sous le nom 
de cybernétique. Ce système veut que l’on puisse 
construire une machine « intelligente » en par- 
tant de méthodes biologiques sur l’information 
en retour et l’analyse. La cybernétique a vérita- 
blement donné naissance à l’intelligence artifi- 
cielle dans les années cinquante. 

Les premiers chercheurs prirent le neurone 
fomalisé par McCulloch comme base. Vu 
l’immense complexité du cerveau, il est peu sur- 
prenant qu’ils aient échoué à créer un système 
intelligent sur ce modèle. Leur raisonnement, en 
effet, était le suivant : « Le cerveau est une 
machine qui résout des problèmes, aussi devons- 
nous simuler le cerveau. » Mais le matériel de 
l’époque, pour ne pas parler du logiciel, était loin 
d’être à la hauteur. Le système Perceptron de 
Rosenblatt fut une des rares réussites de l’épo- 
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que. Il s’agissait d’un système visuel élémentaire, 
susceptible d’apprendre à reconnaître des formes. 
Le système Perceptron est constitué d’une fine 
grille de cellules photoélectriques, dessinant une 
rétine miniature. Il comprend en outre un cer- 
tain nombre d’éléments qui lisent la disposition 
d’ensemble, et contrôlent l’état des groupes de 
cellules de la grille (graphiquement appelés « les 
démons »). Ils agissent, lorsque les éléments du 
motif sont en place, en envoyant un signal à un 
dispositif de décision. Ce dernier multiplie cha- 
que signal en provenance d’un « démon », par 
un facteur positif ou négatif de pondération. Les 
nombres résultants sont enfin ajoutés. Lorsque 
le total dépasse un certain seuil, le Perceptron 
indique « oui »; dans le cas contraire, « non ». 
Ainsi la machine peut distinguer deux types 
d’images, mais le principe peut s’appliquer à plus 
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de deux. Le Perceptron allait-il résoudre de nom- 
breux problèmes ? Ce ne fut pas le cas. Les cher- 
cheurs en intelligence artificielle conçurent alors 
la pensée humaine comme étant essentiellement 
la coordination de tâches simples et de traite- 
ments de symboles. C’était un changement radi- 
cal dans la direction des recherches. Les concep- 
teurs retrouvaient un terrain plus sûr, les ordi- 
nateurs pouvant gérer des symboles. 

Les chercheurs les plus importants des années 
soixante furent Alan Newell et Herbert Simon, 
de Carnegie-Mellon University. Ils ont travaillé 
sur la vérification artificielle de théorèmes et sur 
l’ordinateur-joueur d’échecs. Leur plus grande 
réussite fut un programme appelé General Pro- 
blem Solver (GPS), programme de résolution de 
problèmes d’ordre général. L'utilisateur définis- 
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sait un environnement de travail, en termes cor- 
respondant aux objets d’un certain domaine et 
des opérateurs appropriés. Dans la pratique, 
néanmoins, cet environnement se limitait à des 
problèmes pouvant prendre un nombre limité 
d’états qui relevaient d’un nombre relativement 
petit de règles bien définies. Il pouvait traiter le 
puzzle dit des Tours de Hanoï. L’arithmétique 
des puzzles et énigmes, dans laquelle des micro- 
univers formalisés représentaient les paramètres 
de résolution, était en fait la seule à pouvoir être 
résolue. Par contre, le GPS ne pouvait pas résou- 
dre les problèmes se posant à l’homme dans 
sa vie quotidienne. 

Le principe de base de ce programme était que 
la résolution d’un problème revenait à effectuer 
une recherche à l’intérieur d’un champ limité de 
solutions potentielles. Pour optimiser la recher- 
che effectuée par l’ordinateur, il fallait utiliser 
l’heuristique. Cette méthode consiste à appren- 
dre, à partir des dernières découvertes qu’on a 
faites, à en tirer les conclusions qui permettent 
de diriger les recherches du programme dans une 
nouvelle direction. L’ordinateur pratique lui- 
même cette démarche. Le chemin logique est 
tracé par une suite d’essais et d’erreurs. De la 
sorte, un automate parcourant un labyrinthe met- 
trait en œuvre une technique de recherche com- 
plète, c’est-à-dire, qu’en l’absence d’éléments 
d’informations sur le labyrinthe, il devrait essayer 
toutes les solutions possibles, au hasard. Mais 
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si cet automate pouvait obtenir une réponse à 
son dernier essai (comme dans le jeu où l’on 
« brûle » en s’approchant de l’objet caché), il par- 
viendrait beaucoup plus vite à son objectif. Les 
chercheurs ont à cette époque mis au point plu- 
sieurs stratégies pour résoudre des problèmes par 
une approche heuristique. 

Le programme GPS, nous l’avons vu, n’est pas 
adapté aux problèmes les plus simples de la vie 
quotidienne. Au cours des années soixante-dix, 
une équipe de la Stanford University, conduite 
par Edward Feigenbaum, s’attaqua à cette situa- 
tion. Au lieu d’essayer d’informatiser l’intelli- 
gence, ils concentrèrent leurs efforts dans des 
domaines très limités sur ce qui devait devenir des 
systèmes experts. Le premier système expert fut 
Dendral, un interpréteur de spectrogramme de 


masse construit en 1967. Néanmoins, celui qui 
eut le plus d’influence fut Mycin, réalisé en 1974. 
Mycin effectue le diagnostic d’infections bacté- 
riologiques dans le sang, et prescrit un traitement. 
Il a donné naissance à toute une généalogie de 
programmes de diagnostics, certains étant pas- 
sés au stade d’utilisation courante en milieu hos- 
pitalier. Ainsi de Puff, un programme concernant 
les maladies du poumon, en service dans le Paci- 
fic Medical Center à San Francisco. 

Mycin innova avec un certain nombre de carac- 
téristiques qui allaient devenir les standards des 
systèmes experts. En premier lieu, ses connaïis- 
sances consistaient en plusieurs centaines de 
règles, comme les suivantes : 


RÈGLE N° 47. 

SI 1) le site de culture est le sang, et 
2) l’identité de l’organisme n’est pas 
connue avec certitude, ‘et 
3) coloration gram négatif, et 
4) morphologie de l’organisme en 
bâtonnets, et 
5) le patient est sérieusement brûlé 
il y a peu de chances (0,4), que 
l'identité des organismes incriminés 
soit des pseudo-membranes. 


ALORS 


En deuxième lieu, ces règles fonctionnent selon 
des degrés de probabilité. Shortliffe, l’inventeur 
de Mycin, était médecin. Son système était fondé 
sur les facteurs de probabilité permettant au pro- 
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gramme de parvenir à des conclusions plausibles 
à partir de faits incertains. Ainsi le nombre 0,4 
n’est pas vraiment une probabilité, c’est un fac- 
teur d’appréciation. Ce qui est important, c’est 
le fait que Mycin et les systèmes analogues peu- 
vent parvenir à des conclusions exactes à partir 
d’informations incomplètes et même partielle- 
ment fausses. Ces systèmes experts utilisent un 
mode de raisonnement par approximation basé 
soit sur les probabilités comme Fuzzy Logic dont 
nous avons déjà parlé, soit sur des facteurs de 
certitude ou autres calculs similaires, pour obte- 
nir une estimation satisfaisante de la vérité à par- 
tir d’un ensemble imparfait de données. 

En troisième lieu, Mycin peut expliquer son 
propre raisonnement. Le praticien qui l’utilise 
peut l’interroger de plusieurs manières, pour 
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savoir comment il est arrivé à telle conclusion, 
ou encore pourquoi il demande telle information. 
Le système répond en retraçant la démarche qui 
l’a amené à ses conclusions, et décrit ses déduc- 
tions étape par étape. Cette convivialité du pro- 
gramme découle tout naturellement des règles sui- 
vies pour former son style de programmation. 

En dernier lieu, et c’est le point le plus impor- 
tant, Mycin est un programme qui « marche ». 
Il réalise des diagnostics qui demandent à 
l’homme un très haut niveau de qualification pro- 
fessionnelle. Il est néanmoins surtout utilisé pour 
l’enseignement. 

Nous voici arrivés aux années quatre-vingt. Les 
systèmes experts sont à la mode, leur ingrédient 
déterminant est maintenant la « connaissance ». 
L’étendue et la qualité des connaissances d’un 
système déterminent directement son efficacité. 
Mais la « Connaissance » n’est pas quelque chose 
que l’on peut mettre dans un programme comme 
on remplit un bocal. Codifier le savoir et le 
savoir-faire d’un expert dans un domaine parti- 
culier de connaissances est une démarche longue 
et difficile. Aussi, pendant que le monde entier 


s’émerveille sur les systèmes experts, l’intelligence 
artificielle se tourne vers un autre domaine de 
recherche : comment la machine peut acquérir 
d’elle-même des connaissances. Le centre d’inté- 
rêt est aujourd’hui le programme Eurisko. 

Il s’agit d’un programme d’exploration du 
champ des connaissances capable d’affiner auto- 
matiquement, par induction, ses propres règles 
heuristiques. Il s’applique tant à des jeux com- 
pliqués qu’à des problèmes pratiques. Parmi ses 
réalisations, l’invention d’une nouvelle porte logi- 
que à trois dimensions dans le domaine des cir- 
cuits intégrés. 

Il n’y a aucun doute que des systèmes comme 
Eurisko constituent l’avant-garde en matière de 
recherche en intelligence artificielle. Et comme 
cette dernière est également au premier plan du 
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développement informatique, on peut mieux dis- 
cerner l’avenir. Curieusement, en s’intéressant à 
nouveau à l’acquisition des connaissances, l’intel- 
ligence artificielle est revenue à ses racines. C'était 
en effet, à ses débuts, la préoccupation majeure 
de la cybernétique. 

Cette suite d’articles représente un guide pra- 
tique de l’intelligence artificielle. Nous verrons 
ses principaux domaines (tels que le traitement 
de l’image et des langages naturels), ainsi que les 
techniques mises en œuvre. Comme toujours, 
tous les exemples de programmes sont en BASIC. 
Des encadrés présenteront les segments de pro- 
grammes propres à certains micro-ordinateurs. 
Le chercheur en intelligence artificielle a son labo- 
ratoire rempli de grosses machines utilisant LISP. 
Mais il faudra attendre encore longtemps, pro- 
bablement, pour voir ces systèmes sur micro- 
ordinateurs et interpréteurs BASIC. Nous espé- 
rons pouvoir néanmoins illustrer certaines 
techniques clés de l’intelligence artificielle, par 
des exemples destinés à votre machine, qui est, 
après tout, aussi puissante que les systèmes cen- 
traux d’il y a vingt ans. 
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Kevin Jones 


Le bon choix 


Avant de faire l’acquisition d’un gestionnaire de base de données 
— qui n’est pas donné —, il vous faut prendre en compte un grand 


nombre d’éléments techniques. 


Quand on veut faire l’achat d’un 
gestionnaire de base de données, 
quels sont les points à considérer 
en premier lieu ? 


Quand on se sert d’un traitement de 

texte, il peut être très irritant de per- 
dre du temps à trouver le bon fichier ou à 
déplacer un ensemble de caractères — des 
opérations qui sont assez comparables au 
tri. Cependant, une fois qu'elles ont été 
menées à bien, il est généralement inutile 
d'y recourir de nouveau. Ces activités de 
recherche et de tri ne représentent en fait 
qu'un pourcentage assez faible du temps 
d'exécution total. C'est en réalité la saisie 
des données (taper le texte) et l'impression 
proprement dite qui réclament le plus de 
temps. 

Avec une base de données, la situation 
s’inverse. Les enregistrements, pour par- 
ler en termes généraux, sont de très petits 
« documents » qui sont vite tapés. Le pro- 
gramme consacre une grande part de son 
activité à les trier et à extraire ceux qui sont 
demandés. Si le fichier ne peut tenir entiè- 
rement en RAM, comme cela est presque 
toujours le cas, le logiciel devra obligatoi- 
rement manipuler une mémoire auxiliaire. 
Le stockage sur cassette, de type séquen- 
tiel, est bien trop lent pour être efficace. 
A moins que votre base de données ne soit 
de petites dimensions — disons par exem- 
ple une collection de disques comportant 
une centaine de références —, vous aurez 
besoin d’un système basé sur disquette, ou 
du moins vous feriez mieux d'envisager 
cette éventualité. 

Presque toutes les bases de données 
sont utilisées, d’une façon ou d’une autre, 
pour la gestion (« le temps c’est de l’ar- 
gent »). Cela rend indispensable l'achat 
d’un programme sur disquette, encore 
qu'’Archive, utilisé par les microdrives du 
QL, puisse être considéré comme une alter- 
native intéressante. 


Q Combien d’enregistrements mon 

gestionnaire de bases de 
données devrait-il pouvoir manipuler, 
et est-il intéressant d’en avoir un qui 
me propose plus d'espace que je n’en 
aurai jamais besoin ? 


Suivant ce que vous voulez faire, 
vous aurez besoin, ou non, de pou- 
voir manipuler un grand nombre d’enregis- 
trements. Essayez d'évaluer le nombre le 
plus élevé imaginable; multipliez-le par 
deux, puis efforcez-vous de trouver un ges- 
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tionnaire de bases de données qui soit 
capable de gérer ce chiffre. Si, par exem- 
ple, vous mettez sur pied une base de don- 
nées consacrée à des stocks et à des inven- 
taires, vous n’aurez sans doute pas l’occa- 
sion de dépasserles 32000enregistrements 
— si, bien entendu, vous n'avez pas trop 
de pièces en stock! Si, en revanche, vous 
entreprenez de cataloguer tous les livres 
d’une bibliothèque, ce sera un chiffre tout 
à fait insuffisant. Il faut savoir que, de toute 
façon, il existe peu de gestionnaires de 
bases de données capables de gérer plus 
de 64 000 enregistrements, et qu’ils ne tour- 
nent généralement que sur de gros ordina- 
teurs pourvus de mémoires auxiliaires 
importantes (disques durs, etc.). 


Q Si je ne sais pas exactement de 

combien de champs j'aurai 
besoin, comment choisir un programme 
en particulier ? 


La plupart des gestionnaires de 

bases de données n’autorisent 
qu’un nombre maximum de champs par 
enregistrement, et il est souvent difficile 
de savoir à l'avance combien il en faudra. 
Généralement, vous ne devriez pas avoir de 
problèmes, bien que souvent la longueur 
maximale d’un champ soit limitée à une 
ligne, ce qui rend peu pratique l'entrée et 
l'utilisation de champs comportant plu- 
sieurs lignes de texte. Une autre limitation, 
bien plus importante, est qu’un enregistre- 
ment ne peut contenir d'ordinaire qu’un 
certain nombre de caractères : disons, pour 
prendre un exemple typique, 1 020. L'usa- 
ger doit donc tenir compte, à la fois du 
nombre de champs et du nombre de carac- 
tères dans chacun d'eux, de façon à gérer 
au mieux l’espace dont il dispose. Une 
bonne méthode consiste à en définir, dans 
les deux cas, le plus grand nombre et à 
s'assurer qu'il permettra de satisfaire tous 
les besoins. 


Q Les champs clés sont-ils vraiment 
si importants, et, si oui, combien 
m'en faudra:t:il ? 


Un champ clé peut être recherché, 

ou manipulé au sens large, par le 
gestionnaire de bases de données. || faut, 
bien sûr, le désigner en tant que tel, sinon 
il ne pourra servir à l’extraction des don- 
nées. Voici un ou deux exemples qui vous 
permettront de vous faire une idée : 


SEARCH FOURNISSEUR FOR « Bourcier Management S.A. » 


Le champ clé FOURNISSEUR de chaque enre- 
gistrement est alors analysé de façon à voir 
s’il contient la chaîne de caractères spé- 
cifiée. Ou encore : 
SEARCH PRIX> = 45,50 

Le champ clé PRIX est parcouru par le pro- 
gramme qui cherche des chiffres supé- 
rieurs, ou égaux, à 45.50. Certains logiciels 
permettent de définir tous les champs, ou 
tous ceux dont on aura besoin, comme 
autant de champs clés, dès la création du 
« squelette » de l'enregistrement; d’autres 
fixent une limite de ce point de vue. En 
règle générale, plus le nombre de champs 
clés spécifiables est élevé, mieux cela 
vaut. 


Q Est-ce que je serai limité au 
langage de mon ordinateur, ou 

pourrai-je programmer moi-même 

le gestionnaire de bases de données, 

sans en tenir compte ? 


Certains programmes de ce type 

comportent un langage de program- 
mation intégré, qui permet l'exécution 
automatique de séquences d'activité très 
élaborées. En gestion, des langages de ce 
genre rendent possible la rédaction de pro- 
grammes qui épargneront bien des efforts 
à l'opérateur. 

Archive et dBase Il en sont deux exem- 
ples particulièrement impressionnants. Si 
vous voulez pouvoir procéder à des mani- 
pulations comme « imprimer toutes les ven- 
tes d'aujourd'hui, puis la liste de toutes les 
pièces en stock, et celles des pièces qui 
sont en dessous du seuil de « réassorti- 
ment », il sera judicieux de faire l’acquisi- 
tion d’un logiciel disposant d’un véritable 
langage de programmation. Si, par contre, 
vous ne savez pas de façon précise quel 
usage vous ferez de votre base de données, 
un simple programme « commandes » 
devrait vous suffire. 


Quels sont les points à considérer 

si les enregistrements que je 
crée doivent être reliés à d’autres 
données que celles qui y seront 
contenues ? 


Les gestionnaires de bases de don- 

nées les plus simples ne peuvent 
généralement travailler que sur un seul 
fichier à la fois. Cela suffit parfaitement 
dans la plupart des cas. Il est pourtant très 
utile de pouvoir manipuler simultanément 
deux fichiers ou plus. Imaginons par exem- 
ple qu’un fichier de pièces en stock com- 


porte des pièces ayant plus d’un fournis- 
seur. Nous aurions un fichier « pièces », et 
un fichier « fournisseurs » séparé. Il est 
extrêmement pratique, en cas d’interroga- 
tion de l’un, de pouvoir également interro- 
ger l’autre. 

Supposons que vous êtes antiquaire et 
que vous avez créé un fichier rassemblant 
tout ce que vous avez en stock dans votre 
magasin. || serait intéressant de créer un 
fichier consacré à vos fournisseurs, qui 
préciserait tout ce qu'ils ont à vendre, 
même si vous ne leur avez pas encore 
acheté tel ou tel article. Vous pourrez très 
bien avoir un champ DESCRIPTION « MEUBLES SUE 
DOIS » tout à fait vide, mais une consulta- 
tion de votre fichier FOURNISSEURS vous per- 
mettrait de retrouver KURT JAKOBSEN ANTIK, GAMLA 
STAN56, STOCKHOLM. L'enregistrement serait le 
suivant : 


DESCRIPTION SOFA 
FABRICANT ANDERSEN 
DATE 1824 

PRIX (COUR. SUÉD.) 12 000 
DESCRIPTION SOFA 
FABRICANT GRIMM 
DATE 1874 

PRIX (COUR. SUÉD.| 9 800 


et d’autres entrées, non limitées en nom- 
bre, consacrées à tous les articles propo- 
sés par ce fournisseur. En d’autres termes, 
quand un seul fichier ne peut suffire, la 
référence à un ou plusieurs autres peut 
souvent vous tirer d'embarras. 

Théoriquement, il est bien entendu tou- 
jours possible de créer suffisamment de 
champs dans un fichier particulier, de telle 
sorte qu’on puisse y intégrer toute informa- 
tion supplémentaire dont on aura besoin. 
Mais dans les faits, ce n’est pas toujours 
réalisable. Supposons que M. Jakobsen 
prenne la peine de nous téléphoner pour 
nous dire qu’il vient tout juste de recevoir 
deux charmants sofas du xIx° qui pour- 
raient peut-être nous intéresser. Il sera évi- 
demment bien plus simple d’incorporer ce 
genre de détails dans l’enregistrement 
consacré à JAKOBSEN, plutôt que de parcour- 
rir tous les champs DESCAPTION de notre 
fichier PIÈCES pour y entrer les nouvelles 
acquisitions de notre fournisseur. 

Pour simplifier, disons que chaque fois 
qu'il existe une relation non univoque entre 
les enregistrements d’un fichier et d’autres 
données, il faut d'abord considérer en pre- 
mier lieu un gestionnaire de bases de don- 
nées multifichiers. 


Q Les champs « dépendants » ou 

« calculés » semblent très utiles. 
Quel usage puis-je en faire quand je 
travaille avec une base de données ? 


Les champs « dépendants » consti- 

tuentun raffinement très intéressant. 
Onappelle ainsides champs quin'apparais- 
sent (au moment de la saisie des données, 
et ultérieurement) que si l’on a besoin d'eux. 
C'est ainsi qu’une base de données compor- 
tant un champ intitulé NOMBRE D'ENFANTS ne 
comportera pas d’autres champs si le chif- 
fre en question est 0. Enrevanche,s'ilest de 


1, on verra apparaître NOMDUPREMIER ENFANT, ÂGEDU 
PREMIER ENFANT, et ainsi de suite. 

Comme tous les raffinements, ce genre 
de précision ne se révèle que très rarement 
utile. Certains programmes permettent éga- 
lement d'employer les données contenues 
dans certains champs comme autant 
d'arguments mis en œuvre dans des opéra- 
tions arithmétiques, un peu comme un mini- 
tableur. C’est ainsi que lenombre d'articles 
dans un champ NOMBRE EN STOCK pourrait être 
multiplié par le chiffre contenu dans le 
champ PRIX de chaque enregistrement, tous 
les résultats étant stockés dans un fichier 
séparé, de façon à donner une valeurtotale 
du stock. Ce genre de possibilité, qui peut 
être très profitable, est généralement lié à 
la présence d’un langage de programmation 
intégré. 


Quelles sont les différences entre 

les systèmes gérés par menus, et 
ceux gérés par commandes ? Quels sont 
les plus performants ? 


Une base de données gérée par 

menus vous présente un choix 
d'options à chaque étape du traitement de 
l'information. Pour vous servir d’un système 
à commandes, vous aurez besoin de mémo- 
risertoutun vocabulaire (ce quiseréduiten 
fait à l'apprentissage de combinaisons tou- 
che CTRL + une série d’autres touches), 
avant de pouvoir vous mettre autravail. Les 
systèmes à menus sont d'usage plus facile 
pour le débutant, mais les autres sont géné- 
ralement plusrapides, dès lors que vous avez 
appris les commandes. Ils sont générale- 
ment plus flexibles et plus faciles de manie- 


ment à longterme, pourvu évidemment que 
les commandes aient été conçues selon une 
certaine logique (P pour PRINT, S pour SEARCH, 
etc.), ce qui n’est pas toujours le cas. 


Quelles sont les ressources dont 

disposent les gestionnaires de 
bases de données pour détecter toute 
erreur éventuelle, et empêcher toute 
saisie de données erronées ? 


Un système bien conçu devrait vous 

permettre de préciser quel type de 
données vous pouvez intégrer dans chaque 
champ, ce qui vous aide à prévenir toute 
erreur. Parexemple 72/02/85 se verrait auto- 
matiquement rejeté, de même que PAK : 
manomètre à pression. Les meilleurs programmes 
disposent toujours d'une possibilité de défi- 
nirdeslimitesrelatives au type de données 
acceptables. D'un autre côté, il faut bien voir 
qu'un système de vérification troprigidese 
révèle souvent très gênant. La solution la 
plus satisfaisante consiste en fait à voir 
quelles sont réellement les possibilités de 
contrôle de la validité des données. 


Q Et maintenant, quel programme 
dois-je acheter ? 


R Il est absolument impossible de 

recommander un logiciel plutôt qu’un 
autre. Vous devrez d’abord savoir à quoivous 
pourrez l'utiliser avant de l'acheter! Nous 
nous bornerons à vous recommander — 
sauf si vous vous limitez à quelques appli- 
cations très simples — un système à dis- 
quette, multifichier, et qui dispose d’un lan- 
gage de programmation intégré. 
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Adoucir le mouvement 

Si quatre positions 
limites du bras sont 
sauvegardées lors de 
l’utilisation du 
programme du bras, 

ce dernier se déplacera 
linéairement entre ces 
points (pointillés) lorsque 
la séquence est 
réexécutée. Cependant, 

il est possible de calculer 
de nombreux points 
intermédiaires qui 
génèrent une trajectoire 
curviligne (dite trajectoire 
cubique) passant par 

les quatre positions 
sauvegardées. 

(CI. Kevin Jones.) 


Curviligne 


Nous allons modifier le logiciel mis au point pour notre bras-robot. 
Nous verrons également des mises au point pour améliorer 
la régularité des mouvements du bras. 


La routine moveservo, mise au point dans le logi- 
ciel de commande du bras, réduit les secousses 
produites lors d’un déplacement d’une position 
à l’autre. Les moteurs reçoivent leur information 
angulaire à partir d’une série d’emplacements en 
mémoire, commençant à ANGLE. 

Pour améliorer la régularité du mouvement du 
bras, lorsque les moteurs adoptent de nouvelles 
positions en réponse aux changements apportés 
dans les emplacements ANGLE, les valeurs ne sont 
pas écrites (POKE) directement dans ces emplace- 
ments mais dans un groupe d’emplacements cor- 
respondants nommés NEWPOS. La routine move- 
servo, lorsqu’elle est appelée, compare les valeurs 
des emplacements correspondants de ANGLE et de 
NEWPOS et diminue ou augmente ANGLE de façon 
appropriée, une unité à la fois. Elle répète ce pro- 


TRAJECTOIRES CUBIQUES 


CHEMINS ne ere LES POINTS 
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cessus jusqu’à ce que les valeurs de NEWPOS et de 
ANGLE soient identiques. 

En écrivant les valeurs d’angle dans NEWPOS et 
non dans ANGLE, nous créons en fait un tampon 
qui prévient tout changement brusque et impor- 
tant de l’angle des moteurs. La tâche consistant 
à prendre une bobine de fil à une certaine posi- 
tion et à la déposer dans une tasse est maintenant 
relativement facile. Le bras peut se mouvoir len- 
tement à l’aide des touches appropriées du cla- 
vier, et les positions clés de la courbe peuvent être 
sauvegardées dans un tableau. L’information 
contenue dans le tableau peut être réexécutée à 
une vitesse précise, en insérant un facteur de 
retard dans moveservo et en parcourant le tableau 
pas à pas. 

Il est possible d’apporter d’autres améliora- 
tions. Une première approximation nous apprend 
que les mouvements angulaires sont proportion- 
nels aux changements effectués dans NEWPOS, 
selon la distance séparant chaque liaison du pivot 
comparée avec le rayon du levier du moteur. La 
routine moveservo fait donc bouger uniformément 
chaque partie du bras à une vitesse angulaire 
constante (degrés de rotation par seconde) vers 
sa nouvelle position. Cependant, lorsqu'il atteint 
une nouvelle position, le bras change brusque- 
ment de direction en commençant à gagner la 
position sauvegardée suivante de la séquence; en 
d’autres mots, le mouvement est saccadé. 

C’est déjà mieux que d’être contraint à effectuer 
d’importants et soudains changements d’angle. 
Cependant, ce problème peut être contourné en 
sauvegardant de nombreux points intermédiaires 
au lieu d’avoir à introduire des changements radi- 
caux entre deux positions sauvegardées. 

Comme c’est souvent le cas, le mouvement du 
bras peut être encore amélioré en utilisant un logi- 
ciel plus perfectionné, mais toute amélioration 
sera évidemment coûteuse en espace mémoire. Si 
la bobine de fil est déplacée en ne précisant que 
quatre positions distinctes — la première au 
moment de la saisie de la bobine, la deuxième en 
la soulevant, la troisième en la plaçant au-dessus 
de la tasse, et la quatrième lorsqu'elle est dépo- 
sée dans la tasse — peu de mémoire est utilisée, 
mais le mouvement est très saccadé. 

Une manière de rendre ce mouvement plus 
linéaire consiste à spécifier, par exemple, soixante 
positions intermédiaires permettant d’effectuer 
en douceur une trajectoire élégante. Mais cela uti- 
lisera une quantité importante de mémoire pour 
stocker les données, sans parler du temps requis 
pour entrer manuellement toutes les positions. 


Il serait également possible de calculer de nom- 
breuses valeurs intermédiaires et de combiner les 
positions qu’elles représentent avec celles que 
vous avez sauvegardées manuellement. 

Le programme donné ici démontre comment 
des positions intermédiaires qui correspondent à 
une courbe cubique peuvent être interpolées à 
partir des quatre points particuliers. Le mouve- 
ment résultant entre les points suivra une trajec- 
toire courbe régulière et non saccadée ; c’est une 
amélioration importante par rapport à l’interpo- 
lation linéaire. Pour utiliser cette méthode avec 
un système comportant quatre moteurs, il est 
nécessaire d’interpoler mathématiquement une 
trajectoire cubique pour chaque moteur. 


Trajectoires cubiques 


Spectrum 

10@Q REM oem eee entente een D 
1910 REM #* Trajectoires Cubiaues du Spectrum #* 
1@2@ REM #etemeenotentenenteotete eee ae aan hante eee M 
1050 : 

196@ V=7 

1070 DIM XCV#+5) 1 YCU#S), MCV#S), ZCV4+S) 

1080 XC2)=09 :XC3)=19 :X(4)=4D :X(S5) =50 

1090 Y(2)=2 :YC3)=12 :Y(4)=12 1Y(S)=2 

1100 REM étendre les extrémités |inéairement 
1119 XC1)=X(22-CXC3)-XC29) 

1120 YC1)=Y(2)-CYCS)-YC2)) 

1138 X(5)=X(S5)+CX(5)-XC4)) 

1148 XC(7)2=X(6)+(XC5)-XC5)) 

1150 Y(6)=Y(S)+CY(5)-Y(4)) 

1168 Y(7)=Y(6)+(Y(B)-YCS)) 

1170 CLS 

1189 PRINT"Démonstration d'une routine" 

1190 PRINT"aui intèsre une trajectoire cubique" 
1208 PRINT"en joisnant les points intermédiaires" 
1218 FOR 1=2 TO 5 

1229 CIRCLE XCi)#5-4, YCi)#5+15, 19 

1230 NEXT 

1249 GOSUB 15@0:REM DEFINIR FONCTION AKIMA 

1250 FOR X=XC2) TO X(S) 

1260 GOSUB 1330:REM FONCTION AKIMA 

1270 IF X=X(2) THEN PLOT X#5, Y#S 

1280 IF X<>XC2) THEN DRAW X+5, 4x5 

1290 NEXT 

1300 END 

1310 : 

1320 : 

1330 REM #wkk FONCTION AKIMA #ttok 

1340 REM AKIMA RUCKDESCHEL BOOK 2 (CBYTE/ MCGRAW-HILL) 
1350 N=1 

1360 REM VERIFIER SI X DANS LIMITES DE LA TABLE 
1370 IF X<X(12 OR X>XCV-2) THEN RETURN 

1380 REM TROUVER INTERVALLE DE TABLE CORRESPONDANT 
1390 1=0 

1400 I=I1+1:1F X>=XCI) THEN 1400 

141@ I=1-1 

1420 REM COMMENCER INTERPOLATION 

1438 B=XCI+1)2-XC1) 

1448 A=X-XCI) 

1450 Y=YCI)+Z CI) A+ CS#MCI4+2)-2#ZCI1)-ZCI+1) )#A%/B 
1460 Y=Y+CZCI)+ZCI+1)-24MC1+2) > A*A#A/ (BB) 

147@ RETURN 

1480 : 

1490 : 

1500 REM “tr DEFINIR AKIMA #tn 

1510 REM DEFINIR COEF AKIMA 

1520 FOR 1=1 TO V-1 

1530 REM SHIFT 1 TO 1+2 

1548 MCI+2)=CYCI#+12-YCIDD/CXCI+12-XC19) 

1550 NEXT I 

1560 MCV+2)=2#MCV+1)-MCV) 

1570 MCV4+3)=2#MCV#+2)-MCV#+1) 

1580 MC2)=2#M(5)-MC4) 

1599 M(1)=2#M(2)-MCS) 

1609 FOR I=1 TO V 

1610 A=ABSCMCI+3)-MCI+2)) 

1620 B=ABS(MCI+1)-MCI)) 

1630 IF A+B<2Q THEN ZCI)=(CA#MCI+1)+B#MCI+2)/CA+B) 
1640 IF A+B=0 THEN Z(I)=(MCI+2)#+MC1+1))/2 

1658 NEXT I 

1669 RETURN 


Commodore 64 


RE eee ee 

REM #** TRAJECTOIRES CUBIQUES #* 

RE oem age ee ee D me 

: 

V=7:FOR 1=1 TO 25:DW$=DW8+CHR#(17) :NEXT 

DIM XCU4+3), YCV#S) 3 MCV#T) : ZCV#S) 
XC2)=01X(3)=251:X(4)=291: X(5)=25 
YC2)=21Y(S)=2121Y(4)=12:Y(S) 22 

REM ** ETENDRE LINEAIREMENT LES DEUX EXTREMITES #* 
XC(12=X(22-CXC3)-XC2)) 

YC1D=YC22-CYCS)-YC2)) 

XCE)=XCS)+CX C5) -XC4)) 

XC7)=X(5)+CX(5)-XC5)) 

YCB)=YCS)+CY(S)-Y C4) ) 

YC7)=Y(B)+CY(6)-Y(5)) 

PRINTCHR# (147) 

PRINT “DEMONSTRATION D'UNE ROUTINE" 

PRINT "QUI INTEGRE UNE TRAJECTOIRE CUBIQUE" 
PRINT "JOIGNANT DES POINTS" 

GOSUB 3000:REM DESSINER DES POINTS 

GOSUB 10B0:REM DEFINIR AKIMA 

J=2 

FOR X=X(2) TO XCS) 

GOSUB2000:REM FONCTION AKIMA 

IF X=XCJ) THEN J=J+1:GOT027@:REM DON'T DRAW 
N=X1M=7:GOSUBSO00: PRINT CHR$C46) 

NEXT 

GET A$:IF A$="" THEN 280 

END 


1000 REM #wwx DEFINIR AKIMA “os 
1919 REM CALC AKIMA COEFS 

1028 FOR I=1 TO V-1 

1039 MCI+2)=CYCI#1)2-YCI22/CXCI#12=XCI2) 
1848 NEXT I 

1050 MCV+2)=2#MCV+1)-MCV) 

1060 MCV+3)=2#MCV+22-MCV+1) 

1070 MC2)=2#MC3)-MC4) 

1088 M(1)=2#MC2) -MCS) 

1890 FOR I=1 TO V 

1100 A=ABSCMCI+3)-MCI+2)) 


O B=ABSC(MCI+1)-MC12) 


1120 IF A+B<>@ THEN ZCI)=(CA#MCI+1) +B#MCI+2)) / CA+B) 
1130 IF A+B=@ THEN Z(I)=(MCI+2)+MCI#+1))/2 


1148 NEXT I 

1150 RETURN 

2008 REM sk FONCTION AKIMA toto 
2810 N=1 

2020 IF X<X(1) OR X>X(V-2) THEN RETURNI:REM CHECK RANGE 
2050 1=0 

2048 I=1+1:1F X>=XC1) THEN 2048 
2850 1=1-1 

2068 REM COMMENCER INTERPOLATION 
2078 B=XCI+1)2-XC1) 

2080 A=X-XC1) 


2090 Y=YCI)+Z CL) A+ CS#MCI#+2)2-2#ZC1)-ZC1+1))#AmA/B 
2100 Y=Y+CZCI)+ZCI+1)-24MC1+2) AAA / (B#B) 


@ RETURN 


3000 REM #wm IMPRIMER POINTS sms 


© FOR 1=2 TO S 


3020 N=XC1):M=Y(1)2GOSUB S008: PRINT CHR$(215) 


30350 NEXT 1 

3049 RETURN 

5000 REM sn POSITION Nr M tn 
5019 PRINT CHRS(19) 5 

5020 PRINT TABCN)3LEFTSCDWS, 25-M) : 
5030 RETURN 
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>... Re 
Trace sur C64 


Qui ne connaît pas ce jeu? Voilà une bonne occasion pour 
les possesseurs d’un micro C64 de le traduire en BASIC et de remplacer 
la feuille par l’écran. 


Deux joueurs s’affrontent pour se partager 
l’espace vital. Chacun doit s’efforcer, tout en se 
déplaçant, de ne jamais recouper sa trace ou celle 
de son adversaire, et de ne pas sortir du rectan- 
gle dessiné sur l’écran. Les commandes à utiliser 
sont : 

Joueur de droite : <P>, <L>, <:> et <.> 

Joueur de gauche : <W>, <A>, <S> et <2>. 


S REM XXXXAXXXX 1868 D1=1 

19 REM x TRACE x 1878 D2=-1 3040 IF J2-18 THEN 5008 

15 REM XXXXXAXEX 2088 PRINT CHR$C147 ); 3058 GOTO 28 

26 GOSUB 10088 2818 POKE 53288,0 4008 J1=J1+1 

1908 GET Xx$ 2828 POKE 53281 ,0 4018 FOR 1=1 TO 508 

118 C1=CX$="A"J-CX$="S" )+40xCCX$="W" J-CX 2030 FOR 1-8 TO 393 4020 GET X$ 

$="2")) 2848 POKE 1964+I ,C 40308 NEXT 1! 

128 C2=CX$="L" J-CX$=":" )+40xCCX$="P"J-CX 205@ POKE 1864+1+M,1 4040 IF J1-19 THEN 5088 
=",")) 206@ POKE 1984+I ,C 4058 GOTO 28 

138 IF C1<>@ THEN D1=C1 2878 POKE 1984+1+M,1 5008 PRINT CHR$C142); 

14@ IF C2<>8 THEN D2=C2 2080 NEXT I 5919 FOR I=1 TO 18 

15@ P1=P1+D1 2898 FOR I1=1 TO 22 5028 PRINT 

160 IF PEEK(P1)<>32 THEN 3208 2100 POKE 1064+1x40,C 5038 NEXT 1 

178 POKE P1,C 2110 POKE 1264+1x48+m,1 5040 PRINT TABC18)'LE JOUEUR ‘; 
189 POKE P1+"M,K1 212@ POKE 1103+1x40,C 5050 IF J12J2 THEN PRINT ‘“1'; 
19Q P2=P2+D2 2138 POKE 1193+1x40+M,1 5068 IF J2>J1 THEN PRINT "2"; 

208 IF PEEK(P2)<>32 THEN 4800 2148 NEXT I 5078 PRINT “ GAGNE 1" 

218 POKE P2,C 2168 POKE P1,C 5088 PRINT 

22@ POKE P2+"M,K2 2170 POKE P1+M,K1 5098 PRINT TABC13)J1; A‘; J2 
230 FOR I1=1 TO 5@ 2180 POKE P2,C 5198 FOR I=1 TO 4 

248 NEXT 1 2198 POKE P2+M,K2 5118 PRINT 

258 GOTO 188 2208 PRINT “JOUEUR 1:";J1,"JOUEUR 2: "; J2 5128 GET x$ 

1908 P1=1514 5138 NEXT 1! 

1018 P2=1534 2218 RETURN 5149 PRINT TABC13D'UNE AUTRE ?* 
1928 K1=7 3008 J2=J2+1 5150 GET X$ 

1830 K2=5 3018 FOR 1=1 TO 508 5160 IF X$="" THEN 5150 

1048 C=168 3020 GET X$ 5170 IF X$<)'N' THEN RUN 
1050 M=542?2 3038 NEXT I 5188 END 
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© SYBEX 1984 


Quand la Chine. 


Une équipe de linguistes de l’université de Paris VII® a développé, 
en collaboration avec des informaticiens, un système de saisie 


et de traitement de texte chinois. 


Terminal de saisie d'écriture chinoise ALFA. 


Au moment où la Chine commence à dévelop- 
per ses échanges avec l’Occident et à entrer, à son 
tour, dans le monde de l’informatique et de la 
télématique, un obstacle demeure pour le peuple 
chinois : la complexité de son écriture. 

Comment, à partir d’un clavier, saisir les quel- 
ques milliers de caractères les plus utilisés dans 
la langue chinoise? Jusqu’à présent, deux sys- 
tèmes ont été envisagés, mais aucun n’est entiè- 
rement satisfaisant : il s’agit de l’entrée phoné- 
tique et de la décomposition graphique des 
idéogrammes. 

Si le chinois est la langue unique en Chine, 
dans la mesure où, d’est à l’ouest, du nord au 
sud, tous les Chinois communiquent entre eux 
avec les mêmes caractères, il existe cependant 
énormément de dialectes : le même idéogramme 
se prononce d’une façon différente selon qu’on 
se trouve à Pékin, à Shanghai ou à Canton. De 


plus, à l’intérieur d’un même dialecte, il existe 
de nombreuses homophonies (des idéogrammes 
différents peuvent avoir la même prononciation), 
de sorte que, lorsqu'ils ne sont pas sûrs d’être 
compris, les Chinois ont l’habitude d’écrire les 
mots ambigus avec l’index sur la paume de leur 
main. 

Pour lever l’ambiguiïté, on peut, bien sûr, envi- 
sager d’afficher, pour chaque mot prononcé, la 
liste des caractères correspondants, l’usager 
n’ayant alors plus qu’à choisir l’un des homo- 
phones parmi les caractères affichés. Mais cette 
solution s’avère assez complexe et requiert de la 
part de l’opérateur plusieurs manipulations et 
beaucoup de temps. 

Dans cette catégorie, on distingue la technique 
faisant appel à la reconnaissance vocale, où les 
mots chinois sont directement prononcés. Mais 
celle-là n’est pas parfaitement maîtrisée et exige, 


Logiciel 


Pour les Chinois, 

la saisie des données 
en informatique fut 
longtemps un véritable 
casse-tête... 

La reconnaissance 
dynamique, en temps 
réel, a été choisie pour 
la lecture des caractères 
écrits à la main, 

en style Kaishu. 
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de plus, que l’utilisateur prononce une première 
fois tous les mots qu’il utilisera, dans une phase 
préalable d’apprentissage. L’autre approche 
consiste à entrer les mots sous forme alphabé- 
tique, ce qui requiert de la part de l’opérateur 
l'apprentissage de l’écriture latine. 

Le second procédé de saisie de caractères chi- 
nois consiste à utiliser les éléments graphiques des 
caractères : ce sont les « clés » — on distingue 
la clé de l’eau, celle du bois, du feu, de la 
main... —, qui composent les idéogrammes. 
Avec les 256 radicaux les plus usuels, ainsi que 
leur indication topologique (position de ces élé- 
ments : en haut, en bas, à gauche, à droite, au 
milieu), il est possible de réaliser des claviers 
pouvant saisir la plupart des caractères chinois 
les plus usuels. 

Les firmes Olympia, Wang,. Monotype, etc., 
déjà implantées en Chine, ont adopté l’un ou 
l’autre de ces systèmes. 

L'Association linguistique franco-asiatique 
(ALFA), association de type loi de 1901, qui 
regroupe des linguistes de l’université de 
Paris VII (Jussieu), des informaticiens du CRIN 
(Centre de recherche informatique de Nancy) et 
des spécialistes de l’automation, s’est penchée 
depuis 1979 sur la réalisation d’un terminal de 
saisie automatique et de traitement des caractè- 
res chinois, en vue d’une application dans le cadre 
de la coopération avec la Chine. 

Certains de ces chercheurs avaient déjà tra- 
vaillé sur un projet de terminal en langue arabe. 
Par ailleurs, des études avaient été entamées avec 
Taiwan. La première tâche de l’équipe consistait 
donc à établir un recensement de tout ce qui avait 
été fait en la matière, en particulier un dépouil- 
lement bibliographique considérable, impliquant 
l’abonnement à quelque cent cinquante revues. 

La seconde étape consistait à choisir la 
méthode la mieux adaptée, avant d’aborder la 
phase finale : convaincre que le système était fai- 
sable, afin de déboucher sur un programme de 
recherche et de développement d’un tel terminal. 

Il fallut aussi examiner les possibilités du mar- 
ché chinois, afin de bien cerner la demande qui 
existait dans ce pays. Ce fut l’objet, pour des 
membres de l’ALFA, de plusieurs séjours en 
Chine, notamment six semaines au cours de l’été 
1981. 

Les recherches proprement dites commencè- 
rent par la comparaison des avantages et incon- 
vénients des différentes méthodes existantes. La 
méthode phonétique présentait les difficultés que 
nous avons déjà citées. Quant à la seconde 
méthode, son principal handicap est d’obliger à 
décortiquer le caractère, ce qui nécessite de la part 
de l’opérateur un processus mental non naturel. 

L'ALFA a donc adopté un système reposant 
sur une tout autre approche : la reconnaissance 
graphique. Il ne requiert aucun apprentissage 
préalable de la part des utilisateurs et s’intègre 
parfaitement dans la culture chinoise. 

Dès lors, le choix restait ouvert entre deux 
méthodes. La première, la lecture optique, a déjà 
été envisagée par les Japonais, mais ceux-ci se 
sont heurtés à des problèmes. La seconde, la 


reconnaissance dynamique, en temps réel, paraît 
être la mieux adaptée à la lecture des caractères 
écrits à la main, en style kaishu. C’est l’écriture 
chinoise standard. 

C’est cette dernière approche qui a été retenue 
par l’ALFA pour son terminal baptisé « Lotus ». 
L'opérateur n’a qu’à écrire normalement son 
texte sur une feuille de papier posée sur une 
tablette à numériser, à l’aide d’un stylo spécial, 
relié au terminal. Le logiciel, qui s’appuie sur les 
programmes de reconnaissance des formes, iden- 
tifie le tracé de l’écriture. 

Dans un premier temps, tous les caractères doi- 
vent être mémorisés, mais cette opération s’effec- 
tue une fois pour toutes, indépendamment du 
futur utilisateur — contrairement à ce qui se 
passe habituellement en reconnaissance vocale. 
Après avoir été écrit sur la tablette, chaque carac- 
tère est filtré, lissé, normalisé, puis comparé à la 
forme du caractère mémorisé. Une fois qu’il a 
été reconnu, il est validé et l’idéogramme s’affi- 
che sur l’écran du terminal, ce qui permet à l’opé- 
rateur de vérifier s’il a été bien compris. 

Il arrive cependant qu’un même caractère 
puisse avoir deux ou trois variantes d’écriture. 
Dans ce cas, elles sont toutes mémorisées et peu- 
vent être utilisées indifféremment. 
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Deux caractéristiques de l’écriture chinoise ont 
favorisé cette démarche : d’une part, les carac- 
tères sont indépendants les uns des autres (ils 
ne sont pas liés et leur graphisme ne dépend pas 
de ceux qui les précèdent ou les suivent); 
d’autre part, la façon de les écrire est rigou- 
reuse — elle obéit à des séquences strictes. Tou- 
tefois, une certaine tolérance est admise sur la 
direction et la longueur des segments composant 
les idéogrammes. 

Lotus utilise la norme chinoise de communi- 
cation GB 23-12, qui équivaut à peu près à notre 
code ASCII. A chaque signe, elle fait correspon- 
dre deux octets. Sous cette forme codée, les carac- 
tères peuvent être traités normalement par 
l'informatique. 

Outre la tablette à numériser, le terminal com- 


presse, les journaux... Alors que, pour envoyer 
un télégramme en Chine, chaque caractère doit 
être converti manuellement en un code à quatre 
chiffres, à l’aide d’un index qui en comprend plu- 
sieurs milliers, puis reconverti, au bureau de poste 
de destination, en caractères chinois, l’auto- 
matisation de cette double opération de conver- 
sion permettrait d'économiser un temps précieux 
— souvent 48 heures pour un seul télégramme. 
En outre, elle garantirait la confidentialité des 
messages, avantage essentiel dans le domaine 
militaire, notamment. 

Un tel système permettrait à tout le réseau de 
communications de faire un grand bond en avant 
et favoriserait par là même l’essor économique 
du pays et ses échanges avec l’étranger. 

Aujourd’hui, la phase de recherche se termine, 


Le périphérique mis au 
point par ALFA comporte 
une tablette sur laquelle 
sont écrits les caractères 
dont les formes sont 
comparées à celles des 
caractères mémorisés 
dans l'ordinateur 

Un clavier numérique 
permet d'entrer les 
chiffres et les codes 

des caractères moins 
employés. 


ouvrant la voie aux phases d’industrialisation et 
de commercialisation. Des contacts ont été éta- 
blis avec des industriels français déjà implantés 
en Chine ou qui envisagent des rapports avec ce 
pays. Ce projet peut être proposé soit sous forme 
de coopération franco-chinoise, soit sous forme 
de capital-risque. 

Selon Philippe Kantor, chercheur de l'ALFA, 
qui a séjourné à plusieurs reprises en Chine dans 
le cadre de cette étude, la première solution serait 
plus motivante pour les Chinois et peut-être plus 
adaptée à leurs besoins, car ils pourraient appor- 


porte un clavier numérique permettant d’entrer 
les chiffres, ainsi que les codes des caractères 
moins employés et dont le tracé n’est pas reconnu 
par le logiciel. Lotus peut également affecter à 
chaque caractère traité son code télex à quatre 
chiffres, et servir ainsi à éditer la bande perforée. 

L’idée de l’ALFA est de faire de Lotus un péri- 
phérique adaptable à tout système; il recouvre 
tout le domaine des communications télex pour 
les entreprises, les administrations, les agences de 


Terminal de saisie de caractères chinois ALFA. 


ter une contribution précieuse, en particulier pour 
l’affichage des caractères. 

Cependant, l’implantation de ce système en 
Chine est une affaire de longue haleine, étant 
donné la structure de l’administration chinoise : 
les provinces, municipalités et compagnies jouis- 
sent d’une certaine autonomie, et il faut donc 
traiter avec chacune d’elles séparément. Cela 
exige de la part de l’association française un gros 
travail de mailing et de prospection du marché. 

Cette étude préindustrielle a également pour 
but de trouver des avantages supplémentaires qui 
pourraient tenter les utilisateurs chinois. Ainsi, 
Olympia a pu vendre cent terminaux à codage 
alphabétique grâce à l’imprimante à jet d’encre 
qui les équipait. 

Lotus est un système relativement souple, dont 
la mémoire peut à tout moment être augmen- 
tée par l’entrée de nouveaux caractères, notam- 
ment dans des domaines spécialisés (pétrole, 
nucléaire, etc.). La graphie est mémorisée lors de 
sa première utilisation, et on lui affecte un 
numéro à deux octets. 

Pour satisfaire leurs besoins, les Chinois exi- 
gent en général 6 000 caractères. Toutefois, des 
mémoires plus légères, et meilleur marché, pour- 
raient suffire à certains utilisateurs. 

Le champ d’application de Lotus est vaste. Au- 
delà d’un outil de communication, il peut servir 
de terminal de dialogue avec les bases de données 
en chinois, jouer un rôle dans l’enseignement 
assisté par ordinateur, en bureautique, voire dans 
la traduction automatique. 

L'objet visé par l’ALFA est de commerciali- 
ser une première série de plusieurs centaines de 
machines, ce qui permettrait de proposer un ter- 
minal à un prix de 50 000 F environ. 
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EM UE RE 
Les mutinés du Bounty 
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Nous avons déjà vu que de 
nombreux événements modifient 
le cours du voyage. Mais 
l’'équipage peut aussi-se mutiner. 


Plusieurs hasards peuvent affecter, négativement 
ou positivement, le cours de notre voyage. Ils 
sont choisis chaque semaine de façon aléatoire, 
mais ne surviendront plus par la suite. Il reste 
pourtant un événement qui peut se produire à 
tout moment de la partie, dès lors que certaines 
conditions sont réunies. Si la vie à bord devient 
intolérable, l'équipage se mutinera. 

Huit facteurs différents peuvent contribuer à 
cela. Le navire peut accepter jusqu’à 16 hommes, 
mais en fait tout nombre supérieur à 12 repré- 
sente un excédent ; les marins sont entassés, et 
donc mécontents. Si vous n’avez pas embauché 
de cuisinier, ows’il meurt durant la traversée, ils 
devront de plus s'occuper de la préparation des 
repas; la nourriture ne sera pas de la meilleure 
qualité, d’où mécontentement supplémentaire ! 

Apercevoir un albatros est un heureux présage, 
et l’équipage en sera heureux; mais s’il est tué, 
cela vous portera malheur, et la mutinerie devien- 
dra plus probable. Autres facteurs : la nourriture 
distribuée par demi-rations; la chute des ressour- 


Module dix : mutinerie 


Programme mutinerie 


Supplément à la boucle Voyage principal 
br EE TER 
7228 IFTSCT, 1)=SANDTSCT, 2)<> BANDTSCT, 2)< > -SISTHENN 


7260 IFWK) BTHENMF =MF + (HK-8) #10) 

7275 MF MF + INT CRNDC1) #30) 

7288 IFMF<75 THENRETURN 

7282 PRINTCHRS (147) 

7284 IFMF>100THEN7 300 

7285 S$="LES CONDITIONS DE VIE*":60SUB9100 
7286 S$="SE DEGRADENT+" :GOSUB910@ 

7287 S6="ET CERTAINS MATELOTS*" : GOSUB9100 
7288 S6="PARLENT DE MUTINERIE !*+":GOSUB9100 


7300 PRINTCHRS(147) 

7385 PRINT :GO0SUB3200 

7310 Sé="L'EQUIPAGE S' EST MUTINE+":GOSUB9128 

7312 Ss="PARCE QUE : +" :GOSUB9100 

TSAS X=0 

7314 IFH$<>"o"THEN7S20 

7315 GOSUBS200 : X=X +1: PRINTX 3 

7316 S#="PENDANT TROP LONGTEMPS*" : GOSUBS 108 

7318 St="ILS ONT VECU SUR DES DEMI-RATIONS+" :GOSUB9100 
7328 IFNC <>8THEN7S25 

7321 GOSUBS200: X=X+1:PRINTX3 

7322 66="IL N'Y À PAS DE CUISINIER*":GOSUB9100 
7324 S$="ET LA NOURRITURE EST INFECTE !+":G0SUB9100 
7325 IFBS<>"o"THEN7SSO 


ces financières, inférieures .aux.salaires "à payer: 
une durée.dewvoyage supérieure à huit semaines. 
Dans tous les cas, les matelots se mettront à mau- 
gréer, et cela ira en empirant à mesure que le 
temps passe et que la situation se dégrade: 

IL fautd’a bord voir si toutes les conditions sont 
réunies pour que la rébellion éclate. Pour cela, 
nous définirons une variable MF, qui représente 
le facteur de mutinerie. Au début d’une semaine, 
chaque condition est testée par appel d’un sous- 
programme « mutinerie », à partir de la bouclé 
principale du programmie?Si le résultat de cha- 
que test est positif, une valeur supplémentaire-est 
ajoutée à MF, et la procédure continue jusqu’à ce 
que la variable atteigne. une valeur de 10 :Ma 
mutinerie aura lieu àt@e moment. Pour donner 
aux choses uneallure plus « réaliste », un fac- 
teur aléatoire, qui peut aller jusqu’à 3%, est 
inclus dans-chaque analyse hebdomadaire. 

La ligne 879 nous fait passer au sous-pro- 
gramme qui commence ligne 7200, et procède à 
l’examen du facteur de mutinerie, MF, dont la 
valeur est d’abord fixée à 0. Si l’équipage est mis 
aux demi-rations à n’importe quel stade du 
voyage, la variable H$ se voit affecter la valeur 0. 
Distribuër la nourriture en quantités suffisantes 
est extrêmement-important pour les marins: 
même si les restrictions ne s’appliquent qu’à un 
type de provisions, gardera cette valeur pour 


7326 GOSUBS208: X=X +1: PRINTXS 
7327 S$="VOUS AVEZ TUE L'ALBATROS !*":G60SUB9100 
7338 IFCN<ISTHENTSSS 
7331 GOSUBS200: X=X+1:PRINTX: 
7332 S6="LE NAVIRE EST SURPEUPLE*" : GOSUB91 20 
7335 IFMO>=WT THEN7349 
7336 GOSUB9200: X=X+1:PRINTX 4 
7337 S6="IL N'Y A PLUS ASSEZ D’ OR«":G0SUB910@ 
7338 S6="POUR PAYER LES HOMMES*" : GOSUB9180 
7340 IFWK<=B THEN7 350 
7341 GOSUBS200: X=X+1:PRINTXS 
7342 S$="ILS SONT EN MER+":GO0SUB9180 
7343 S$=" DEPUIS PLUS DE 8 SEMAINES*" :GOSUB9100 
7350 PRINT: GOSUB3200 
7360 S$="L'EQUIPAGE S'EMPARE DU NAVIRE*":GOSUB91 00 
7362 GOSUB3200 
7363 S#6="ET DISPARAIT AU LOIN **:G0SUB9188 
7370 GOSUB3200 
7372 S$="VOUS LAISSANT SEUL*":GOSUB9100 
7373 S#="DANS UN CANOT... ‘:G0SUB9108 
7374 S6="PUISSIEZ-VOUS SURVIVRE !" 
7375 PRINT :G0SUB9200 

FIN DE LA PARTIE" 


Variantes de basic 


Spectrum : 
Procédez aux modifications suivantes : 


7282 CLS 
7294 LET I$=INKEYS:IF 1$="THEN GO TO 7294 
7300 CLS 


BBC Micro : 
Procédez aux modifications suivantes : 


7282 CLS 
7294 1$=GETS 
7300 CLS 


le restant du voyage. Le sous-programme ajoute 

30 à MF chaque fois que H$ est égal à 0. C’est 

la tâche de la ligne 7215, qui incrémente MF si 
nécessaire. 

Après quoi le sous-programme vérifie s’il y a 

s! r.cela il attribue à ca 

e 


. , Huit facteurs contribuent à 
Les facteurs de la mutinerie déterminer le moral de 
l'équipage, et permettent 
de définir un facteur de 
mutinerie, MF, pour chaque 
!:: semaine du voyage. Si la 
: combinaison de ces huit 
facteurs donne à MF une 
valeur supérieure à 10, 

la mutinerie éclate, et le 
capitaine du navire sera 
abandonné au gré des 
courants, à bord d’un petit 
canot de sauvetage. 


H$ _ 0)? 
demi-rations 


a 0 où de 99. le cuisinier 
C prend la tatrt 1;2Si par ‘cont 
r + de aucun maître queux, ou s’il 
es en cours.de route, NC à (, et, “dans” < 
a ligne 7235 ajoute 
| Si l’albat REP à été aperçu au cos de la tra- 
HE" versées AS devient 0, igne 605$ du sous- . 
à pre «_albatros "€ ermèt de Sous- 
albatros est en 


: NC = O0 — pas de cuisinier — 


> 


B$ = SO 
albatros tué 


F tée : pa WT, et Pargent conservé. par le pitine 
| dans RGO re par 0. La ligne 7255 a pour à 
_ fonction de com} les dep} ne Si =» est. 


CN > 12 — vaisseau surpeuplé 


ir d’un facteur aléatoire co 
qui est déterminé ig 
ditions ayant é 


WT > MO — Jes salaires 
plus importants que la 
somme dans le coffre 


suite en | Principale. 

Si la: nutinerte à bel et bi M lie ler programme 
en détermine les causes, qu’il affiche à l'écran: 
La ligne 7314 voit si H$ est égal à 0, et vous 

____ informe que AR et survivent sur des demi- 
N Fob db A in temps{ ets TANT 
ur NC? si cette variab EE 
à 0, c’est qu'il nya pas de cuisinier à bord, et 

”_ la ligne 7324 précise que la nourriture était EXÉ 
crable! La Aigné 22 e_façonanalôgue, 

E é tué ou non; si oui, 
VOUS apprendrez que c’était un mauvais présage, 
qui a contribué à l’explosion de colère. Les lignes 
7330 (vaisseau surpeuplé) et 7335 (plus assez 
d’argent pour payer les hommes) ont la même 
fonction, tout comme la ligne 7340 (le délai de 
huit semaines est dépassé). 


1 voyage > 8 semaines 


: 
ES 


facteur aléatoire 


lan McKinnell 
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Symboles pointeurs 


da 


Pointeur indéfini (après 
une déclaration, avant 
une affectation, ou 
après une annulation). 


He 


ointeur ne s'adressant 
nulle part (après 
affectation à NL). 


Intersection zone de 
données et pointeur. 
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Allocation dynamique 


Nous allons voir des concepts en PASCAL tels que la dé-allocation, 
les pointeurs, les sauts et les structures liées. Ces derniers nous 
permettent de traiter des fichiers de taille indéterminée. 


Le PASCAL prévoit deux procédures standards 
(new et dispose) et un type de données spéciales 
offrant une grande puissance et une grande sou- 
plesse pour, respectivement, l’allocation dynami- 
que et la dé-allocation de la mémoire. Un type 
« pointeur » est simplement une variable qui, au 
lieu de contenir une valeur de données telle qu’un 
entier, est un « pointeur pour » une valeur entière 
ou tout autre objet de données, structuré ou non. 
La notation utilisée est semblable à celle rencon- 
trée dans un tampon mémoire de consultation de 
fichier (qui pointe de manière effective sur le pro- 
chain enregistrement du fichier, mais de manière 
entièrement différente). Un type pointeur se défi- 
nit en faisant précéder l’identificateur (ou le type 
de données que nous voulons pointer), d’une flè- 
che vers le haut. 

TYPE 

TableauLong = TABLEAU 1.100 OF real; 

indirect = ? TableauLong; 
Le signe correspondant (‘@’), existe pour tous 
les compilateurs PASCAL ISO. La définition de 
type réserve un seul emplacement mémoire 
devant recevoir l’adresse d’un grand tableau lors 
de sa création par la procédure new. Avant cela, 
la valeur du pointeur n’est pas définie, contrai- 
rement à toute autre variable. Aussi : 

VAR 

adresse : indirect ; 

nombre : entier ; 
réserverait de la place pour une seule adresse 
machine (16 bits sur un micro à 8 bits), et pour 
un entier, les deux n’étant pas initialisés. 

De même que nous pouvons vouloir initialiser 
l’entier à zéro, on peut assigner au pointeur la 
valeur spéciale NIL. Il s’agit d’un mot réservé 
PASCAL, qui signifie simplement que le pointeur 
ne s’adresse à aucune position intéressante. C’est 
l'équivalent de la valeur numérique zéro (absence 
de nombre). Les deux variables de l’exemple 
pourraient donc être assignées de la sorte : 

adresse : = NIL 

nombre :0; 

Puisque NL est une valeur constante appartenant 
à un type générique, il serait peut-être préféra- 
ble de la définir en tant qu’identificateur du lan- 
gage. Wirth changea manifestement d’avis à cet 
égard, le même mot étant dans MODULA- un iden- 
tificateur prédéfini, et non un mot réservé. Pour 
illustrer l’utilisation de new et dispose, nous pren- 
drons des entiers pour simplifier les choses. 

Lorsqu'une variable pointeur est nécessaire 
pour désigner un nouvel élément, nous appelons 
la procédure PASCAL new qui lui alloue de la 


place mémoire et met son adresse dans le poin- 
teur. L'élément de données est alors référencé en 
déréférençant le pointeur p par la notation pt. 
Vous remarquez que la flèche vers le haut vient 
maintenant après l’identificateur du pointeur 
comme dans la notation concernant un tampon 
de fichier. Cette expression pourrait être énon- 
cée de la sorte : « l’élément pointé par p ». 

Ayant fini avec les données créées par les poin- 
teurs initiateurs new, nous pouvons appeler la 
procédure PASCAL dispose. C’est l’inverse de new, 
dans la mesure où la mémoire est retournée à 
l’ensemble dynamique, la valeur du pointeur 
devenant indéfinie. Le programme DeuxPlusDeux le 
montre : 


PROGRAMME DeuxPlusDeux {sorties} ; 
TYPE 
pointeur = ? entier; 
VAR 
pl, 
p2 : pointeur ; 
réponse: entier; 
BEGIN 
new (pl); 
DT =2: 
new (p2) ; 
p21: =pli: 
réponse : = pl +p2l; 
WriteLn {p1 ?, "+", p2 f, ‘=", réponse): 
dispose (p1) ; 
dispose (p2) ; 
END 


Cette méthode utilisée pour l’addition deux-plus- 
deux, met en évidence deux points très importants : 
e Les variables dynamiques sont anonymes — il 
n’y a pas d’identificateur de variable (comme \), 
comportant la valeur 2, dans le programme. Ces 
éléments sont référencés indirectement. 

e Après la deuxième procédure dispose, le seul 
espace mémoire utilisé est celui de l’entier 
(answer). Les données dynamiques n’existent plus. 
Si vous avez suivi les articles sur le langage assem- 
bleur, vous aurez compris que le mode indirect 
des pointeurs est analogue à l’adressage indirect 
niveau machine. Il existe cependant de grandes 
différences dans l’utilisation du mode indirect 
avec un langage aussi évolué que PASCAL. En 
premier lieu, nous ne savons pas (ou n’avons pas 
besoin de savoir) quelles seront les adresses effec- 
tives. La seule adresse absolue dont dispose le 
programmeur PASCAL est NL. Nous sommes 
également libres d’utiliser, de rappeler — et, ulté- 
rieurement, de réutiliser — tout espace mémoire 


disponible sans avoir à nettoyer nous-mêmes la 
mémoire. La gestion de cette dernière est prise 
en charge par le PASCAL; la seule information 
dont nous puissions avoir besoin étant la place 
mémoire disponible. On obtient cette informa- 
tion par la fonction non standard MemAval, ou, 
sur certaines versions telles que le PASCAL ISO 
Acom, par la fonction Free. Ces fonctions donnent 
le nombre d’octets encore disponibles en 
mémoire. Une autre fonction supplémentaire très 
utile est la fonction SizeOf (IdentificateurType), qui indi- 
que la taille en octets de tout type. La mémoire 
utilisateur est divisée en deux structures internes, 
le fas et la pile. 

Le tas est utilisé pour les appels de procédures 

et de fonctions. Il stocke leur adresse de retour, 
les données locales et les valeurs restituées. Tou- 
tes les données dynamiques sont allouées sur la 
pile. Celle-ci fonctionne de manière similaire à 
celle du tas, à la différence près que le mode 
d’empilage n’est pas « dernier élément entré, pre- 
mier sorti ». La pile commence à l’autre extré- 
mité de la mémoire utilisateur. Elle s’accroît vers 
le tas. Une utilisation trop ambitieuse de la pro- 
cédure new, et/ou de la récursion peut provoquer 
une collision pile/tas, mais on peut l’éviter de la 
sorte : 
IF SizeOf (objet) > PerCent * MemAvail THEN... où objet est l’iden- 
tificateur type des données à créer, et PerCent, une 
valeur autour de 0,7, allouant 30 % de la 
mémoire au tas, et 70 % à la pile. Si, comme c’est 
généralement le cas, MemAval/Free fonctionne 
comme le niveau maximal pour la mémoire, il est 
possible de tenir en plus le compte de la mémoire 
récupérable grâce aux éléments supprimés en 
mémoire. 

La puissance réelle des pointeurs est mise à 
l’œuvre lors de la création de structures liées 
telles les arborescences, les listes liées simplement 
ou doublement, les structures circulaires, etc. Si 
nous envisageons le problème des chaînes de 
caractères, nous pouvons, et nous le faisons sou- 
vent, utiliser un tableau de dimension fixe, par 
exemple de 80 caractères. 

Un compilateur PASCAL doit distinguer des 
identificateurs de toutes longueurs. Ainsi, com- 
ment trouver un modèle précis pour cette carac- 
téristique appartenant au monde réel, à savoir 
une taille variable? La structure naturelle à uti- 
liser serait un enregistrement de deux zones : une 
pour chaque élément de données (ici des carac- 
tères), et une autre zone pointeur de l’enregistre- 
ment suivant dans la liste, s’il existe. 

TYPE 

chaîne = fcaractère; 

caractère = RECORD 
Car : Car; 
suivant :chaîne 
END; 


: chaîne; 


VAR 
ligne 
BEGIN 
ligne := NL; 
etc. 
Une chaîne vide est représentée simplement en 
assignant la valeur NIL à la chaîne. Toute autre 


Le pascaL réserve de la place mémoire 
pour une adresse indéfinie suivant une 
définition type. 


Un pointeur est susceptible d’être 
initialisé à zéro, en lui affectant la valeur 
spéciale NIL. : 

new (ligne) ; 


La procédure new attribue de la place 
mémoire aux données et stocke l'adresse 
de la position réservée dans la variable 
pointeur. 


Les éléments de données ne sont pas 
désignés explicitement, ils sont adressés 
indirectement par la notation f. 

+ 


ligne ? suivant :=NIL ; 


WITH P t DO 
BEGIN 
new {suivant} ; 
suivant ? . car := ‘b' 
END 


Liste à liaison simple 


séquence de caractères supposera un nouvel enre- 
gistrement pour chaque caractère, et un autre 
pointeur sur l’enregistrement suivant. Le dernier 
enregistrement sera suivi d’une zone initialisée à 
la valeur NL, ce qui permet de détecter la fin de 
la chaîne de caractères. Une procédure d’affi- 
chage de la chaîne pourrait être la suivante : 


WHILE ligne < > NIL DO 
BEGIN 
write [ligne ?. car); 
ligne := ligne Î. suivante 
END 


Vous remarquez que la structure des données est 
récursive, étant définie en termes d’elle-même. La 
zone pointeur ne peut recevoir un type qui aurait 
été pleinement défini, et une référence vers 
l’avant est donc autorisée. 


Successivement 

Le PAscAL offre au 
programmeur la 
possibilité de mettre en 
œuvre des « listes liées », 
structure des données 
très puissante dans 
laquelle chaque élément 
est pointé sur le suivant 
de la liste. Les listes 
peuvent être liées 
Simplement (entre deux 
éléments successifs), 
liées doublement (c’est-à- 
dire que chaque élément 
dispose de pointeurs 
affectés à la fois vers le 
suivant et le précédent 
éléments de la liste), ou 
liées de façon cyclique. 


Ligne circulaire 

Ce programme permet 
d'insérer des 
enregistrements de 
données de types divers, 
dans une liste cyclique 
d'allocation dynamique. 
Les données sont 
placées selon une zone 
clé alphabétique (nom), ce 
qui rend superflu le tri 
des algorithmes. 
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Langage machine 


La puce dédiée au son du Commodore 64 ou puce SID est 
virtuellement un synthétiseur de son. Avec un logiciel sophistiqué, 
elle peut même produire de la parole comme un robot. 


Le son du Commodore 64 est normalement trans- 
mis, via le plot RF, directement à la télévision. 
Cependant, la sortie son peut aussi être connec- 
tée, via le plot audio/vidéo, à un système hi-fi 
pour une lecture ou un enregistrement de bonne 
qualité. Nous allons voir les principes sous- 
jacents au logiciel permettant au C64 de se trans- 
former en tambour. 

Outre la création de sons complexes sous 
contrôle logiciel, la puce SID peut aussi accep- 
ter des entrées d’un signal audio externe. Ces 
signaux peuvent être générés par un matériel élec- 
tronique externe (pouvant contenir d’autres puces 
SID) ou des instruments de musique tels que des 
guitares électriques. Ce signal externe peut être 
mixé à la sortie audio de la puce SID et traité à 
travers ses filtres. Nous recommandons toutefois 
de faire attention en utilisant les interfaces E/S, 
car une erreur de connexion des lignes externes 
pourrait gravement endommager l’ordinateur. 
Nous vous suggérons de consulter le manuel du 
fabricant avant de tenter toute connexion 
externe. 

Pour commencer, voyons comment le son musi- 
cal (périodique) peut être obtenu à partir de sons 
purs séparés. Considérons une autre méthode 
pour atteindre le même résultat. En contrôlant 
l’enveloppe d’une note périodique donnée, nous 
pouvons introduire les harmoniques selon diffé- 
rentes proportions. Effectivement, cela signifie 
que nous pouvons créer presque tous les sons 
périodiques que nous voulons, en modifiant quel- 
ques pics de l’enveloppe d’un oscillateur. Ces pics 
— ou contrôles — sont aussi connus sous le nom 
de « ADSR » (Attaque, Déclin, Soutien et 
Relâche). 

Malheureusement, le BASIC résidant dans le 
C64 n’est pas bien équipé pour manier le son. La 
programmation du son sur l’ordinateur est effec- 
tuée par l’utilisation extensive des commandes 
PEEK et POKE. Si nous mettons la variable SID égale 
à 54272 (l'adresse de base de la puce SID), alors 
les adresses SID à SID+8 contrôleront la puce 
sonore — et donc tous les sons sur le Commo- 
dore 64. 

Enfin, nous donnons un programme en lan- 
gage machine pour créer un tambour à trois voix, 
commandé par interruptions. Ce code « coin » 
peut être contrôlé à partir du BASIC, mais conti- 
nuera à faire jouer les tambours indépendamment 
du programme BASIC. Cela implique que, avec 
de légères modifications, il puisse servir à four- 
nir des effets sonores de fond pour tout pro- 
gramme BASIC. 


Sons musicaux 


Le son atteint nos oreilles sous la forme de vibra- 
tions périodiques de la pression de l’air. Le nom- 
bre de vibrations par seconde s’appelle la « hau- 
teur » — ou « fréquence » — du son. La limite 
inférieure audible par l’homme est d’environ 
15 cycles par seconde (ou 15 hertz). Un son pur 
dont la fréquence est de 100 Hz paraît grave à 
l’oreille. Le /a au-dessus du do médian est nor- 
malisé à 440 Hz. Si nous doublons la fréquence 
d’un son, nous élevons sa hauteur d’une octave. 
L’ouïe humaine embrasse près de 10,5 octaves. 
Les oscillateurs à trois tons de la puce SID 
embrassent un domaine de huit octaves environ 
— soit de O0 à 4 000 Hz. 

Le physicien français, Jean Fourier 
(1768-1830), fut le premier à remarquer que toute 
onde périodique pouvait être considérée comme 
composée d’un son fondamental pur, auquel se 
mêlent des sons dont les fréquences sont des mul- 
tiples de ce son fondamental. Ces sons s’appel- 
lent « harmoniques ». Ce qui donne à un son ou 
à une note son timbre caractéristique, ce sont 
les proportions dans lesquelles apparaissent les 
diverses harmoniques. 

Une onde sinusoïdale pure, qui correspondrait 
à un son pur, est intrinsèquement un signal ana- 
logique, ce qui signifie qu’il n’est pas facile à pro- 
duire sur un appareil numérique avec des niveaux 
de tensions de 0 ou 5 V. Donc, au lieu de géné- 
rer des fréquences pures, puis de les mixer pour 
obtenir le son périodique souhaité, l’approche 
adoptée sur les micros familiaux est différente. 
1. Onde en dents de scie : ici, tous les harmo- 
niques sont présents. Le N° harmonique a une 
intensité proportionnelle à 1/N. 

2. Onde triangulaire : elle ne contient que des 
harmoniques impairs. Pour N impair, le N° har- 
monique a une intensité proportionnelle à 1/N°. 
3. Onde rectangulaire : une telle onde a des har- 
moniques impairs proportionnels à 1/N. En 
changeant la largeur d’impulsion, nous pouvons 
obtenir une grande diversité d’ondes rectangulai- 
res, dont chacune a sa composition particulière. 
4. Bruit blanc : un mélange aléatoire de fré- 
quences, essentiellement utilisées pour des effets 
spéciaux. 

Le contenu harmonique d’un son peut aussi être 
modifié par filtrage. La puce SID offre trois sor- 
tes de filtres : passe-bas, passe-bande et passe- 
haut. Par exemple, un filtre passe-bas passera 
toutes les fréquences en dessous d’une valeur pré- 
déterminée et atténuera toutes celles qui sont au- 
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Enveloppes adressées 
La qualité d'une note 

— ce qui permet de 
différencier entre, disons, 
un piano et un violon — 
dépend de la forme de 
l'enveloppe. Dans la 
synthèse électronique 
des sons, l'enveloppe 
est constituée de quatre 
étapes distinctes : 
attaque, déclin, soutien 
et relâche, ou ADSR. 

La longueur de chaque 
étape de l'enveloppe 
ADSR peut être définie 
en POKEant des valeurs 
dans les registres de 

la puce SID, ce qui nous 
permet de synthétiser 
les sons de différents 
instruments sur le C64. 
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dessus de cette valeur. En utilisant ces possibili- 
tés et les contrôles d’enveloppe ADSR, presque 
tous les sons peuvent être produits. 

Il y a diverses façons de construire des pro- 
grammes générant de la parole. L’une d’elles, 
offrant une qualité acceptable et un vocabulaire 
illimité, est décrite ici. Dans cette méthode, les 
blocs constitutifs du langage — phonèmes — sont 
codés dans un tableau de valeurs ADSR. II y a 
environ 37 phonèmes différents en français (ce 
nombre varie avec la langue : il y en a 52 en 
anglais), et leur codage n’est donc pas une tâche 
« phénoménale ». Puis un programme en langage 
machine est utilisé pour traduire un texte ASC 
(équivalent d’ASCII pour Commodore) en un 
flux de codes phonèmes, qui peut alors être 
envoyé à la puce SID à l’aide du tableau ADSR. 
Ce n’est pas si facile, d’abord parce que les règles 
qui sont utilisées pour traduire des textes en pho- 
nèmes sont très compliquées. La qualité de la 
parole obtenue dépendra grandement de la valeur 
de cette partie du programme. C’est un projet 
parfaitement réalisable pour le C64, et de nom- 
breux produits utilisent cette technique. 


Contrôle d'enveloppe 


RELÂCHE 


Le diagramme ADSR donné ici montre la forme 
générale d’une note de musique, en insistant sur 
les caractéristiques que la puce SID nous permet 
de contrôler. Les quatre facteurs ADSR sont : 


1. Attaque : le temps de montée d’une note. 
2. Déclin : le temps pris par une note pour des- 
cendre à un niveau stable. 

3. Soutien : le volume d’un niveau stable. 

4. Relâche : le temps pris par le volume d’une 
note pour décroître du niveau soutien au niveau 
Zéro. 

Attaque, déclin et relâche d’une note sont cha- 
cun contrôlés par des quartets (4 bits) dans les 
registres de la puce SID. Cela implique que cha- 
cun de ces paramètres prend une valeur comprise 
entre 0 et 15. La relation entre les valeurs qui doi- 
vent être POKEées dans les registres SID et les 
synchronisations réelles sont données dans le 
tableau suivant : 


oo © 1] On & © © = © 


La longueur de la section soutien est déterminée 
en utilisant une boucle retard. Les valeurs pour 
une note de violon pourraient être : 


Pour produire un son sur le C64 nous devons par- 
courir un minimum de six étapes. Par exemple : 
+ Etape 1 : mettre le volume à l’aide de : 


POKE SID+24,15 
+ Étape 2 : sélectionner ADSR. Par exemple : 


POKE SID+5,9:REM ATTAQUE/DÉCLIN VOIX# 1 
POKE SID+6,0:REM SOUTIEN/RELÂCHE VOIX# 1 


e Étape 3 : sélectionner la fréquence pour cha- 
que oscillateur. Par exemple : 


POKE SID+1,25:REM OCTET-HI FRÉQ VOIX#1 
POKE SID,0  :REM OCTET-LO FRÉQ VOIX#1 


+ Étape 4 : sélectionner la forme d’onde désirée. 
Par exemple : 


POKE SID+4,33:REM SÉLECTIONNER DENTS DE SCIE POUR 
VOIX#1 


A ce point, le son commence à jouer — ce qui 
se traduit par ouvrir la « porte ». 

+ Etape 5 : une boucle de retard pendant que la 
note joue au niveau soutien. 

e Etape 6 : la forme d’onde doit être relâchée. 
Par exemple : 


POKE SID+4,32:REM RELÂCHE DENTS DE SCIE 


La façon la plus simple de programmer le Com- 
modore 64 pour jouer un air est d’initialiser les 
valeurs de ADSR, et construire une boucle FOR 
qui lise (READ) les octets hi/lo de fréquence à par- 
tir des instructions DATA. En insérant des zéros 
dans les DATA, on peut varier le tempo pour dif- 
férentes voix tout en maintenant le retard 
constant. 


ae 


. * 
Machine à tambour 
Le programme Machine à tambour que nous 
donnons ici utilise un « coin » IRQ, de sorte 
qu'une fois que nous avons mis les tambours 
en marche ils continuent à jouer, 
indépendamment de ce que nous faisons en 
Basic. Le programme a aussi une manière 
intéressante de vérifier le code machine pour 
voir quelle touche a été appuyée — il inspecte 
le contenu de l'emplacement 197 ($00C5). C'est un 
emplacement en page zéro qui contient une 
valeur décrivant la dernière touche appuyée. Un 
programme en langage machine peut vous 
épargner le souci d’un appel noyau pour obtenir 
un appui de touche, pourvu que C5 soit 
échantillonné suffisamment souvent. 

Notez que, puisque l’amplificateur Basic ne 
vide pas le tampon de clavier à l’aide de GET ou 
INPUT, le programme doit mettre le pointeur à 
l'emplacement 198 (006) à zéro pour la sortie. 
C'est l'emplacement de page zéro. 

Lorsqu'on utilise le programme, à chaque 
tambour est attribué 16 cases de temps, 
lesquelles sont affichées sur une grille à 
l'écran. Le choix de 16 facilite la mise en œuvre 
d’un rythme de rock 4-4. Le curseur de lutin est 
déplacé dans l’une des cellules de la grille, 
et lorsqu'il est en position correcte, une case de 


Programme générateur de rythme BASIC 


1000 REM #* GENERATEUR DE RYTHME #* 
1818 PRINTCHR#(147) :REM CLEAR SCREEN 
1828 GOSUB1S18:REM SETUP M/C+SPRITE 
1838 GOSUB1278:REM SETUP SCREEN 

1848 SYS(49152) :REM *INSERT WEDGE* 
1858 REM SYS(49175) TO REMOVE WEDGE 
18068 REM *MAIN LOOP* 


1978 P=PEEK(197):REM CURRENT KEYPRESS 


1080 IFP=37THENY=Y-16:SY=SY-1 : IFY<PSTHENY=95S : SY=0 
1098 IFP=3SÉéTHENY=Y+16:SY=SY+1:1FY>127THENY=127:SY= 


2 


1189 IFP=47THENX=X-16:SX=SX-1 : IFX<28THENX=28 : SX=9 
1118 IFP=44THENX=X+ 1 6 : SX=SX+ 1 : IFX)> 268 THENX=268 : SX= 


15 
1128 2=0:IFP=1THENZ=1 


1138 PRINTCHR#(19) ;S$;"TEMPO ="; PEEK(679) ; CHR$(157 


* À Gel 

1148 POKEVIC+16,X/256:POKEVIC,XAND255 

1158 POKEVIC+1,Y 

1168 REM*#*COMPUTE SCREEN LOC FROM SPRITE X,Y POS 
1178 SC=B+INT((Y-58)/8+1)#48+INTC(X-18)/8) 

1188 IFSY=OTHENROW=50088 :REM BASS DRUM 

1198 IFSY=1THENROW=S50816:REM SNÂARE DRUM 

1298 IFSY=2THENROW=508032:REM COW BELL 


1218 IFZ=1ANDPEEK(SC)=32THENPOKESC , 24 : POKEROW+SX, 1 


:G0T01 238 


1228 IFZ=1ANDPEEK(SC)=24THENPOKESC , 32 : POKEROW+SX , 8 
1238 IFP=51THENGOSUB1 378 :FORI=0T058 :POKES8888+I ,8: 


NEXT 


1248 IFP=57THENPOKE1 98,0 : POKEUIC+21 ,8 : PRINTCHRS# (14 


7) :END 

1258 GOTO1878 

1268 REM *SET UP SCREEN* 

1278 PRINTCHR$#(19); 

1288 S$=CHR$#(17)+CHR$ (17) +CHR$ (17) 
1298 PRINTTAB(3)" 


1308 PRINTCHR$#(18)TAB(3)" ###x%# CBMé4 RHYTHM GENER 


ATOR #x##x " 

1319 PRINT :PRINT :PRINT 
1920 PRINT" === ? 
1338 PRINT" 


1348 PRINT" - = - - - - - - - - - - - - - - . 
1358 PRINT" 


1368 PRINT" - - mm — — — — “ 
1378 PRINT" 


1388 PRINT" - = — "“ 
1398 PRINT :PRINTTAB(8)"OPTIONS...." 

1488 PRINTTAB(8)"CF1] 
1419 PRINTTAB(8)"[F3] 
1428 PRINTTAB(8)"[FS] 
1438 PRINTTAB(8)"CF7] 


PLAY RHYTHM" 
DECREASE TEMPO" 
INCREASE TEMPO" 
STOP RHYTHM" 


Langage machine | | 


temps peut être activée/désactivée avec la 
touche « Return », et le rythme mis à l’aide de 
la touche f1. Le menu à l’écran affiche les 
options disponibles. Étant donné que les sons 
sont commandés par interruption, le modèle de 
rythme peut être édité à l'écran tandis que le 
rythme joue. 

Le programme Basic inclut tout le code 
machine nécessaire au programme sous forme 
de DATA, et peut être tapé et exécuté tel quel. 
Nous fournissons aussi un listage de code 
source pour la partie en langage machine du 
programme. Si vous voulez taper et assembler 
le code source, alors les lignes 1520 à 1540 
et les instructions DATA entre les lignes 1620 
et 1940 peuvent être omises. 

Pendant l'exécution du programme, essayez 
le modèle ci-dessous pour un rythme classique : 


TEMPO = 15 

. Vote  nn 2: Lie 
al hat x 
RC KE x 


1449 PRINTTAB(8)" [CLR] 
1458 PRINTTAB(8)"C8T] 
1468 PRINTTAB(8)"L(] 
1478 PRINTTAB(8)"L)] 
1488 PRINTTAB(S8)"LK] 
1498 PRINTTAB(8) "(MI 
1598 RETURN 

1518 REM *xSET UP M/CODE & SPRITE* 

1528 FORI=491521049413 

1538 READJ :C=C+J:POKEI ,J:NEXTI 

1548 READJ:1FC<>JTHENPRINT"DATA ERROR" : END 
1558 FORI=8TO62: READJ : POKE832+1 ,J:NEXTI 
1569 VIC=53248:X=28:Y=95 : B=1024: SID=54272 
1578 FORI=8TO24:POKESID+I ,8:NEXTI 

1588 POKESID+24,15:POKEVIC+21 ,1:POKE2840 ,13 
1598 POKE254,15:POKE679,15:POKEUIC+39,1 
1688 FORI=8T058 : POKE58888+1I ,8 :NEXT 

1618 RETURN 

1628 REMX*xM/C DATA#XX 

1638 DATA128,173,28,3,133,251,173,21,3 
1648 DATA133,252,169,36,141,28,3,169 

1658 DATA192,141,21,3,88,96,128,165,251 
1668 DATA141,28,3,165,252,141,21,3,88 
1678 DATA?6,32,177,192,165,197,281,3 

1688 DATA288,3,32,135,192,165,197,201,4 
1698 DATA288,3,32,148,192,165,197,281,5 
1788 DATA288,3,32,155,192,145,197,281,6 
1718 DATA288,3,32,166,192,32,87,192,142 
1720 DATA168,2,148,169,2,76,49,234,165 
1738 DATA253,288,1,96,198,254,240,1,96 
1748 DATA32,149,192,224,16,288,3,32,144 
1758 DATA192,185,88,195,248,3,32,184 

1768 DATA192,185,96,195,248,3,32,218 

1778 DATA192,185,112,195,248,3,32,236 
1788 DATA192,208,234,232,96,169,8,133 
1798 DATA253,96,169,1,133,253,162,8,168 
1888 DATA8,96,173,167,2,133,254,96,173 
1818 DATA167,2,281,255,248,3,238,167,2 
1828 DATA96,173,167,2,281,1,240,3,286 
1838 DATA167,2,96,174,168,2,172,169,2 
1848 DATA96,169,14,141,6,212,169,32,141 
1858 DATA2,212,169,66,141,4,212,169,3 
1868 DATA141,1,212,169,65,141,4,212,96 
1878 DATA169,7,141,12,212,169,12,141,13 
1888 DATA212,169,128,141,11,212,169,65 
1898 DATA141,8,212,169,129,141,11,212 
1988 DATA9é,169,2,141,19,212,169,13,141 
1918 DATA28,212,169,18,141,18,212,169 
1928 DATA188,141,15,212,169,17,141,18 
1938 DATA212,96 

1948 DATA328 38 : REM*CHECKSUM% 

1958 REM**SPRITE CURSOR DATA## 

1968 DATA127,254,8,127,254,8,127,254,0 
1978 DATA112,14,8,112,14,8,112,14,8,112 
1988 DATA14,8,112,14,8,112,14,8,112,14 
1998 DATAB,112,14,8,127,254,8,127,254,8 
2888 DATA127,254,8,8,8,0,8,8,8,8,8,8,0 
2818 DATA8,8,8,8,8,8,8,8,8,8,8 


CLEAR CHART" 

END PROGRAM" 
MOVE CURSOR LEFT" 
MOVE CURSOR RIGHT" 
MOVE CURSOR UP" 
MOVE CURSOR DOWN" 


1x] 


1x! 


1x1 


1x 


1x1 x] 


— BASSE 


— TIMBRE 
— SONNERIE 
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Listage d'assemblage 


, 
++ + 
F++ MACHINE TAMBOUR CEM ++ 
+ CODE SOURCE ++ 


$FB 3STORE FOR LO-BYTE VECTOR 

sFC STORE FOR HI-BYTE VECTOR 

$FD 3TOGGLE FOR PLAY DRUM (1=YES) 
$FE STORE FOR CURRENT DELAY STATUS 
$cs 3 CURRENT KEY PRESSED 


VOL = #$D418 3SID VOLUME 
ATTI = #D4085 3SID ATTACK VOICE 1 
Sus1 = #$D486 3SID SUSTAIN VOICE 1 
PULSE = ‘+$D402 3SID PULSE RATE VOICE 1 
WAVE 1 = ‘+D484 3SID WAVEFORM VOICE 1 
BASS = #$D481i 3SID HI-BYTE FREQ VOICE 1 
ATT2 = +$D4oc 3SID ATTACK VOICE 1 
SuS2 = #$D40D 3SID SUSTAIN VOICE 2 
WAVE2 = ‘+#D488 3S1D WAVEFORM VOICE 2 
SNÂARE = ‘+D408 3SID HI-BYTE FREQ VOICE 2 
ATT3 = #D413 3S1D ATTACK VOICE 3 
SUS3 = #$D414 3SID SUSTAIN VOICE 3 
WAVE3 = #D412 3SID WAVEFORM VOICE 3 
BELL = +$D48F 3SID HI-BYTE FREQ VOICE 3 
ROW1 = +#$C358 3STORAGE FOR VOICE 1 
ROW2 = #$C3608 STORAGE FOR VOICE 2 
ROW3 = #$c370 3STORAGE FOR VOICE 3 
TEMPO = #$82A7 3TEMPORARY STORE FOR DELAY 
XCOUNT = #82A8 3TEMPORARY STORE FOR X REGISTER 
YCOUNT = #$02A9 3 TEMPORARY STORE FOR Y REGISTER 
= 
= 
= 


SEI 3DISABLE INTERRUPT REQUEST 

LDA #$9314 3GET CONTENTS OF VECTOR LO-BYTE 
STA LOVEC 3STORE IN LOVEC 

LDA $8315 3GET CONTENTS OF VECTOR HI-BYTE 
STA HIVEC 3STORE IN HIVEC 

LDA #<WEDGE ;GET LO-BYTE WEDGE START ADDR. 
STA $8314 3STORE IN IRQ VECTOR LO-BYTE 
LDA #)WEDGE ;GET HI-BYTE OF WEDGE START 
STA $0315 3STORE IN IRQ VECTOR HI-BYTE 
CLI 3RESUME INTERRUPT REQUEST 

RTS 3 RETURN 


SEI 3DISABLE INTERRUPT REQUEST 
LDA LOVEC 3GET ORIGINAL VALUE FROM LOVEC 
STA $8314 3STORE IN IRQ VECTOR LO-BYTE 
LDA HIVEC 3GET ORIGINAL VALUE FROM HIVEC 
STA $8315 STORE IN IRQ VECTOR HI-BYTE 


CLI 3RESUME INTERRUPT REQUEST 
RTS 3 RETURN 
PRE DATE PRE Lie te 25 1. PEN AL LR ENCORE S PERS 
;MAIN LOOP 
ASP TER EP PE AT AR A RER RE 
WEDGE JSR REG ;GOSUB REG 
LDA KEY ;UHICH KEY PRESSED ? 
CMP #$83 31S IT FUNCTION KEY #1 ? 


BNE CONTI 3; BRANCH IF NOT TRUE 
JSR FLAG8 :GOSUB FLAGO 

CONTI LDA KEY 3WHICH KEY PRESSED ? 
CMP ##$94 31S IT FUNCTION KEY #7 ? 
BNE CONT2 3 BRANCH IF NOT TRUE 
JSR FLAGI :GOSUB FLAG1 


CONT2 LDA KEY 3WHICH KEY PRESSED ? 
CMP H#$85 31S IT FUNCTION KEY #3 ? 
BNE CONT3 3 BRANCH IF NOT TRUE 
JSR ADD :GOSUB ADD 

CONT3 LDA KEY 3WHICH KEY PRESSED ? 
CMP #$86 31S IT FUNCTION KEY #5 ? 


BNE CONT4 3 BRANCH IF NOT TRUE 
JSR MINUS :GOSUB MINUS 

CONT4 JSR REST :GOSUB REST 
STX XCOUNT  3;STORE VALUE OF X REGISTER 
STY YCOUNT STORE VALUE OF Y REGISTER 
JMP $EA31 ; JUMP BACK TO INTERRUPT 


; 
REST LDA PLAY :3GET TOGGLE VALUE 
BNE BEGIN 31F EQUAL TO 1 THEN BRANCH 
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RTS 3 RETURN 
ET RTE Aer RER, LIT CRT CR CTP RE 
BEGIN DEC DELAY  ;DECREMENT DELAY 
BEQ START  ;BRANCH IF ZERO 
RTS 3 RETURN 
sgh RS RO. À Dec RUES SUN do ufe AL DL 
START JSR COUNT  ;GOSUB COUNT 
CPX H$18 ÿEND OF LOOP ? 
BNE CHECK  ;BRANCH IF NOT 8 
JSR RESET ;GOSUB RESET 
CHECK LDA ROWI,Y 3GET VALUE OF ROW1 OFFSET BY Y 
BEQ NEXTI  ;BRANCH IF ZERO 
JSR DRUMI  ;GOSUB DRUMI 
NEXT1 LDA ROW2,Y ;GET VALUE OF ROW2 OFFSET BY Y 
BEQ NEXT2 ;BRANCH IF ZERO 
JSR DRUM2  ;GOSUB DRUM2 
NEXT2 LDA ROW3,Y 3;GET VALUE OF ROW3 OFFSET BY Y 
BEQ NEXT3  ;BRANCH IF ZERO 
JSR DRUM3  ;GOSUB DRUM3 
NEXT3 INY 3 INCREMENT OFFSET 
INX ;INCREMENT LOOP COUNTER 
RTS 3 RETURN 
; SUBROUT INES 
FLAGS LDA #$08 ;STORE ZERO - 
STA PLAY 3IN PLAY 
RTS 3 RETURN. 
Ten enuan MURS 2 AMD mi Moins even | 
FLAGI LDA #$01 3STORE 1 - 
STA PLAY 3IN PLAY 
RESET LDX ##90 3RESET X REGISTER 
LDY ##$88 3RESET Y REGISTER 
RTS 3 RETURN 
GS 
COUNT LDA TEMPO GET VALUE OF TEMPO 
STA DELAY STORE IN DELAY 
RTS 3 RETURN 
TR Er RS NE R 
ADD  LDA TEMPO GET VALUE OF TEMPO 
CMP H$FF ; COMPARE RESULT WITH 255 
BEQ CONTS  ;BRANCH IF TRUE 
INC TEMPO  ;INCREMENT TEMPO 
CONTS RTS ; RETURN 
MINUS LDA TEMPO GET VALUE OF TEMPO 
CMP H$a1 3 COMPARE RESULT WITH 1 
BEQ CONTé  ;BRANCH IF TRUE 
DEC TEMPO  ;DECREMENT TEMPO 
CONTé RTS 3 RETURN 
FR, PNA RR NTSC LUE B Eee LL ES RSR RE RES 
REG LDX XCOUNT  ;STORE VALUE OF XCOUNT IN X REG 
LDY YCOUNT STORE VALUE OF YCOUNT IN Ÿ REG 
RTS RETURN 
;DRUM SOUND ROUTINES 
SERRE PRE EE PP TR PT 
DRUMI LDA H$9E SET 
STA SUS1 ; 
LDA #28 ; UP 
STA PULSE  ; 
LDA #$42 ; BASS 
STA WAVE  ; 
LDA #$83 ; DRUM 
STA BASS 
LDA #$41 AND PLAY 
STA WAVE! 
RTS ; RETURN 
, 
DRUM2 LDA #$87 ; SET 
STA ATT2 ; 
LDA #$eC ; UP 
STA SUS2 ; 
LDA #$88 3 SNARE 
STA UWAVEZ  ; 
LDA #$41 ; DRUM 
STA SNARE 
LDA #$81 3AND PLAY 
STA WAVE2 
RTS 3 RETURN 
L 
DRUM3 LDA ##82 3 SET 
STA ATT3 ; 
LDA #$8D UP 
STA SUS3 ; 
LDA ##12 3 COW 
STA WAVES  ; 
LDA H$64 BELL 
STA BELL 
LDA #$11 ÿAND PLAY 
STA WAVE3 
RTS 3 RETURN 
.END 
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